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l. abstract: 



DHA IS AN IOMOD THAT EXERCISES OP TO FOUR (CONSECUTIVELY ADDRESSED) DHll 

ASYNCHRONOUS INTERFACES. IT USES MAINTENANCE MODE TO TRANSMIT 

AND RECEIVE A BINARY COUNT PATTERN OUTPUTTED AND RECEIVED 

IN 64. CHARACTER BURSTS. THE MAJOR PORTION OF THE FRROR 

CHECKING IS DEFERRED TO LEVEL 0. ALL LINES SELECTED FOR TEST 

APE ACTIVATED AND RUN CONCURRENTLY. 



2. REQUIREMENTS: 



hardware: at least one oh 11 interface 

storage:: dha requires: 

1. decimal words: 1066 

2. octal words: 02052 

3. OCTAL BYTES: 4124 



3. PASS DbiFINITTIN: 

ONE PASS OF THE DHA MODULE CONSISTS OF TRANSMITTING AND RE' 
CSIVING 425984. CHARACTERS FOR EACH DH11 SELECTED 

4. EXECUTION TIMS: 

VARIES WITH B\UD RATE BUT SHOULD TAKE AN AVERAGE OF ONE 
MINUTE TO COMPLETE ON E PASS WHEN RUNNING ALONE. 

5. CONFIGUR ATI3N PARAMETERS: 
DEFAULT PARSMETFRS: 

OVA: 1, VCT: 1, BR 1 : 5, BR2: 5, DVC: 1/ SRl: 
REQUIRED PARAMETERS: 

AT CONFIGURATION T IMF THE USER MUST SPECIFY: 

DVA: ADDRESS OF FIRST DH11 CSK REG. 

VCT: VFCTOR ADDRESS OF FIRST 0H11 

DVC : NO OF DHll'S IF GREATER THAN 1 

SRI: BIT15 MUST BE SET TO A "1" FOR 

8. WORDS RETwEEN ADJACENT VECTORS 

(2040 CONFIGURATION) 
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DEVICF OPTION SETUP: 



NONE REQUIRED 
MODULE OPERATION: 

START: DETERMINE IF ANY ERRORS ARE SELECTED. DO NOT RUN 
THE MODULE IF HO DEVICES ARE SELECTED. IF THERE 
ARE SELECTED DEVICES, INITIALIZE TtiE BINARY COUNT 
PATTERN AT 0. CONTINUE PROCESSING. 

RESTRT: INITIALIZE THE ITERATION COUNTER TO 6656. DETERMINE 
IF ANY DHll'S ARE SELECTED. LOAD THE INTERRUPT 
VECTORS TO POINT To THE JSR LINKING TABLE. 

SETUP2: INITIALIZE THE QUEUE POINTERS. CLEAR ALL THE BUFFERS 
AND QUEUES. CLEAR THE BUFFER ACCESS FLAG (LCKOUT) 
IN CASE IT WAS STILL SET BY A CONTROL C INTERRUPT 
OF THE PROGRAM. 

ACTVATE: THIS BLOCK OF CODE GETS THE PHYSICAL ADDRESS OF 
THE TRANSMITTER TEXT BUFFER. IT INITIALIZES EACH 
DHll SELECTED. IT SAVES THE EXTENDED ADDRESS 
INFORMATION IN THE APPROPRIATE SYSTEM CONTROL 
REGISTER BITS. EACH OF THE SIXTEEN LINES TS LOADED 
WITH THE PHYSICAL ADDRESS AND LENGTH OF THE TRANSMITTER 
BUFFER. ALSO* EIGHT BITS PER CHARACTER IS SELECTED. 
IF A RAUDPATE IS SELECTED* IT IS CALCULATED AND 
ASSIGNED. OTHERWISE THE DEFAULT RATE OF 9600 BAUD 
IS ASSUMED. 

INITIAL: THE DATA PATTERN IS LOADED INTO THE TRANSMITTER 
BUFFER. IT IS A BINARY COUNT PATTERN WHICH, ON 
SUCCESSIVE ITERATIONS, BEGINS 0,4,1 0,14,20, .. .,177774. 
THE SILO ALARM LEVEL IS PLACED IN THE SILO STATUS 
REGISTER TRANSMITTER AND ERROR INTERRUPTS ARE ENABLED. 
ALL THE TRANSMITTERS FOR EACH SELECTED DHll ARE 
ENABLED. 

TMRSET: TMRCNL IS USED AS A MULTIPLYING FACTOR TO DETERMINE 
THE WAITING LENGTH FOR THE WATCHDOG TIMER. IT IS 
PRESENTLY SET AT 5 TO ALLOW SEVENTY-FIVE SECONDS 
TO ELAPSE BEFORE TAKING FURTHER ACTION. 

TIMER: THIS IS THE WATCHDOG TIMER LOOP • IT IS CONTROLLED 
BY R4 AND TMRCNT. IF ALL DHll'S SELECTED GENERATED 
BOTH TRANSMIT AND RECEIVE INTERRUPTS, THE APPROPRIATE 
BIT IN DONFLG FOR THAT DHll WILL BE CLEARED. IF 
THIS DOES NOT OCCUR IN THE GIVEN TIME, THE DEVICE 
NUMBER OF THE OFFENDING DHll WILL BE CALCULATED, 
AND THIS WILL BE REPORTED IN A MODULE MESSAGE. THE 
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OFFENDING DE' f ICE IS DROPPED FROM THE EXERCISE. IF 
NO MORE DHll'S ARE SELECTED. THE MODULE ITSELF IS 
DROPPED FROM THE RUN. IF MORE REMAIN TO BE EXERCISED, 
HOWEVER, CONTROL IS TRANSFERRED TO "FINISH." 

FINISH: CONTROL COMES HERE IF ALL SELECTED DHll'S HERE 
SUCCESSFULLY EXERCISED OR IF MORE DHll'S REMAIN 
AFTER ONE WAS HUNG. THE ITERATION COUNT IS DECREASED. 
IF THE COUNT DOES NOT REACH ZERO, CONTROL IS PASSED 
TO SETUP2 AND THE MODULE IS RUN AGAIN. WHEN THE 
COUNT REACHES ZERO, AN END OF PASS IS SIGNALLED. 

XMTINT: THIS SEGMENT SAVES A POINTER TO THE CSR ADDRESS OF 
THE INTERRUPTING DH11 IN A FIRST-IN, FIRST-OUT, 
WRAPAROUND BUFFER. THE TRANSMITTER QUEUE. THE ENTRY 
POINTER IS THEN UPDATED TO POINT TO THE NEXT ENTRY 
IN THE QUEUE. 

XMTSRV : THIS BLOCK FETCHES A POINTER TO A CSR ADDRESS 

FROM THE TRANSMITTER QUEUE, AND THE QUEUE IS UPDATED 
TO THE NEXT ENTRY. THE CSR IS TESTED TO DETERMINE 
WHAT KIND OF INTERRUPT OCCURRED. FALSE INTERRUPT 
AND NDN-EXI STENT MEMORY INTERRUPT ARE REPORTED. 
IF EVERYTHING IS CORRECT, THE RECEIVER FOR THIS 
DH11 IS ENABLED. 

RCVINT: THIS SEGMENT SAVES A POINTER TO THE CSR ADDRESS 
OF THE INTERRUPTING DHll IN THE RECEIVER QUEUE. 
IT UPDATES THE QUEUE ENTRY AND RESTORES THE VALUE 
OF R5 WHICH WAS SAVED BY THE JSR INSTRUCTION FROM 
THE LINKAGE TABLE. 

RCVSRVl THE FIRST TASK IS TO PREVENT VOLATILE REGISTER 
INFORMATION FROM BE TNG DESTROYED. THIS IS DONE 
BY TESTING A SEMAPHORE, "LCKOUT." IF IT IS SET, 
CONTROL IS RETURNED TO THE MONIT3R TO KMT FOR 
A WHILE. IF IT IS CLEAR, ACCESS IS PERMITTED. THE 
FLAG IS SET TO DENY OTHER ACCESSES TO THIS DEFERRED 
ROUTINE. A CSR ADDRESS IS OBTAINED FROM THE QUEUE, 
AND THE QUEUE ENTRY IS UPDATED. THE RECEIVER INTERRUPT 
AND INTERRUPT ENARLE ARE CLEARED. THE REGISTERS ARE SET 
UP TO RETRIEVE AS QUICKLY AS POSSIBLE THE DATA FROM 
THE DHll SILO. EACH FETCH IS CHECKED TO SEE IF THE 
INFORMATION IS VALID. IF IT IS NOT, THE REGISTERS 
ARE SAVED AND A BREAK LOOP IS USED TO ALLOW MORE 
TIME FOR VALID INFORMATION TO BEC3MF AVAILABLE. 
IF AFTER THE ALLOTED TIME ALL THE CHARACTERS ARE 
STILL NOT RECEIVED, AN ERROR MESSAGE IS REPORTED. 
IN THE MESSAGE, THE MUMRER FOLLOrt IMG STATC IS THE 
OCTAL NUMBER Or CHARACTERS MISSING. 

CKDAT A : TdlS SEGMENT INITIALIZES THE LINE CHECK BUFFER 

(LNCKRF) TO THE FIRST DATUM THAT WAS TRANSMITTED. 
THE QFVICF NUMB FR IS SAVED FOR LATER USAGE. THE 
RECEIVED INFORMATION IS CHECKED FOR VALIDITY 

AND TRANSMISSION ERRORS. ERRORS ARE HANOLFQ BY ThF. 
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'STATSHR' (STATUS ERROR) AND 'DFRRJP* (DATA ERROR ) 
ROUTINES. 

RCVDONE: THIS BLOCK CLEARS THE ACCESS SEMAPHORE TO ALLOW 
OTHER DEVICES TO USE THE LINE CHECK BUFFER. IT 
THEN RUTLDS A ONE BIT MASK USING RO AND THE 
CARRY BIT TO DSLETE THE APPROPRIATE BIT IN THE 
WATCHDOG TIMER FLAG ( OONFLG). WHEN THTS IS DONE, 
PROCESSING CONTROL IS RETURNED TO THE MONITOR. 



SUBROUTINES 

VCTLOAD: THIS ROUTINE IS CALLED IN 'SETUP1*. IT IS USED 

TO LOAD THE ADDRESS OF THE LINKING INSTRUCTION FOR 
INTERRUPT SERVICING INTO THE CORRESPONDING VECTOR 
SPACE. IT ALSO LOADS THE PRIORITY LFVFL AND THE 
DEVICE ADDRESS. THE LATTER TS LOADED INTO THE 
APPROPRIATE JSR TABLE ENTRY. 

SAVREG: THIS ROUTINE SAVES THE FIVE VOLATILE INFORMATION 
REGISTERS IN A FIPST-IN, FIRST-OUT WRAPAROUND 
BUFFER, THE ERROR QUEUE. 

GOT REG : THIS ROUTINE RETRIEVES THOSE SAVE REGISTERS. 

BAUDRTS: THIS ROUTINE CALCULATES THE BAUD RATE, ASSIGNS 
IT, AND SELECTS 8 BITS/CHARACTER COMMUNICATION 
MODE. IF SR1=0. THE DEFAULT RATE OF 9600. BAUD 
IS ASSIGNED. THE BAUD RATE SELECTED IS DETERMINED 
BY THE LEAST SIGNIFICANT (RIGHTMOST) SET BIT TN SRI. 

STATE RR: THIS ROUTINE DETERMINES WHETHER AN ERROR INDICATED 
IN THE RECEIVED CHARACTER INFORMATION WAS AN 
OVERRUN ERROR- A FRAMING ERROR, OR A PARITY ERROR. 
THE DEVICE NUMRER OF THE ERRING DSVICE IS REPORTED 
AS STATC CSRA WILL BE CLEAR. 

D ERROR: THIS ROUTINE REPORTS A DATA ERROR . 



3. OPERATOR OPTIONS 



MODULE LOCATION DVID1 MAY BE MODIFIED (MOD. CMMD) TO EXERCISE 
ANY COMBINATION OF DHll'S. 

MODULE LOCATION SRI MAY BE MODIFIED TO SELECT A DIFFERENT BAUD RATE. 
THE FOLLOWING TABLE SHOULD BE USED; 

FOR THE BAUD RATE SR1= 

9600 

EXT. B 1 

EXT. A 2 
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9600 
4800 
2400 
1R00 
1200 

600 

300 

200 

150 

134.5 

110 
75 
50 

2040 CONFIGURATION 



4 
10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



(8. WORDS BETWEEN VECTORS) 



BIT15 MAY BE SET IN CONJUNCTION WITH ONE OF BITS 

00 THRU 14 TO INDICATE SPECIFIC BAUD RATE OTHER THAN 

DEFAULT OF 9600 BAUD. (SR<14:00> = 0) 

THE DEFAULT RATE IS 9600 BAUD(SR1=0). 



9. 



NON-STANDARD PRINTOUTS : 



WHEN A STATUS ERROR IS DETECTED* DHA USES THE ERROR 
CALL TO REPORT IT. THE LINE NUMBER IS 
REPORTED IN STATC. 



ALL OTHER PRINTOUT IS STANDARD. 



S 
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SEQ 0007 



302 
3u3 
304 
305 
306 
307 
30° 
309 
310 
311 
312 
313 
314 
315 
316 
317 
3l» 
319 
3 20 
321 
322 
323 
324 
3 2b 
3 26 
327 
32R 
329 
330 
331 
332 
333 
334 
3 35 
336 
337 
3 38 
33Q 
340 
341 
342 
343 
344 
345 
3 46 
3 47 
348 
34o 
350 
351 
352 
353 
354 
355 
356 



oooooo- 

000000 * 



000000* 
000000' 
000005' 
000006* 
000010* 
000012* 
000013' 
000014 - 
000016* 
000020' 
000022' 
000024 ' 

000026' 
000030' 
000032* 
000034* 
000036' 
000040' 
000042* 
000044* 
000046 ' 
000050- 
000052* 
000054' 
000056' 
000056 ' 
000060' 
000062' 
000064* 
000066* 
000070' 
000072' 
000074' 
000076' 
000100- 
000102- 
000102* 
000104 ' 
000104 ' 
000106' 
000106' 
000110* 
000112' 
000114- 
000116- 
'000120' 
000122' 



044104 046101 

000 
OOOOOt 
000001 

240 

240 
000001 
000000 
000000 
000000 
000000 

140000 

000224' 

000224' 

000000 

017000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 

000000 

000000 

000000 

000244' 

000000 

000000 

000000 

000025 

000040 



• ******* 

6egin: 
modn am: 
xflag: 
addr: 

VECTOR 

BRl: 
BR2: 
dvioi: 



.LIST 

IHMOD 

MODULF 

.TITLE 

DDXCOM 

.LIST 



SEQ, LOC, BIN 
<0H AL >l,l,5,5, c 17000,25 

140000 £ DHAL '1/1*5, S,, 17000, 25 
DH AL DEC/X11 SYSTEM EXERCISER M 



VERSION 
BIN 



23-MAY-7B 



MODULE 



SRl : 
SR2 : 
SR3: 
SR4 : 



.ASCII 

.BYTE 

1*0 

1*0 

.BYTE 

• BYTE 

♦ 1 

OPEN 
OPEN 
QPfcN 
OPEN 



.**************** 

Stat: 140000 
init: start 
spoint: modsp 
pascnt: o 
inoNT: 17 
icount: " 
sofcnt: 
hrdcnt: 
sofpas: 
hrupas : 

SYSCNT: 



HANNOMi 

CONFIG! 
RFS1 : 
RES2: 

svro: 
svri : 
svr2 : 

SVR3: 
SVH4 : 
SVR5 : 

SVR6 % 
CSRA: 
SBADR: 
ACSR : 

w asadr: 

astat: 

ERRTYP: 

asb: 

awas: 

rstrt: 

wdto: 

taOFR : 

INTR : 

idnum: 



17000 











OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

25 

.REPT 



/DHAL / /MODULE NAME. 

OPEN JUSED TO TEEP TRACK OF WBUFF USAGE 

;1ST DEVICE ADDR. 

;1ST DEVICE VECTOR. 
PRTY5+0 ;1ST BR LEVEL. 

PRTY5+0 ;2ND RR LEVEL. 

;DEVICE INDICATOR 1. 
;SWITCH REGISTER 1 
;SWITCH REGISTER 2 
;SWITCH REGISTER 3 
JSWITCH REGISTE" " 
*********************** 

STATUS WORD. 
MODULE START ADDR. 
MODULE STACK POINTER. 
PASS COUNTER. 

# OF ITERATIONS PER PASS=17000 
LOC TO COUNT ITERATIONS 
LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 
LOC TO SAVE HARD ERRORS PER PASS 

* OF SYS ERRORS ACCUMULATED 
HOLDS RANDOM ft WHEN RAND MACRO IS CALLED 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
LOC TO SAVE RO. 
LOC TO SAVE Rl. 
LOC TO SAVE R2. 
LOC TO SAVE R3. 
LOC TO SAVE R4. 
LOC TO SAVE R5. 
LOC TO SAVE R6. 
ADDR OF CURRENT CSR. 
ADDR OF GOOD DATA, OR 

^CONTENTS OF CSR. 
" ADDR OF BAD DAT A* OR 
STATUS REG CONTENTS. 
TYPE OF ERROR 
EXPECTED DATA. 
ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 
U OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER= 25 
SPSIZ >MODULE STACK STARTS HERE. 
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35^ 
360 
361 

362 00021 
363 
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. NLIST 
.WORD 
.LIST 
. ENDR 



SEQ 0008 



DHAL DEC/X11 SYSTEM EXERCISER MODULE 
XDHALO.Pll 31-OCT-78 08:40 



000224 
000230 



003616 

177560 003566 



001002 

104410 000000* 



looioo 

000002 



002602- 177536 
177760 003516 




001420 
177410 
000010 
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J ST ART ROUTINE. DETERMINE IF ANY DH'S ARE SELECTED 

; IF SO, BEGIN MODULE PROCESSING... IF NOT, DROP THE MODULE FROM THE RUN 



CLRB 
MOV 



BNE 



DATA 

DVIDI # SELECT 



?INITIALI7E THE DATA PATTERN WORD 

;COPV THE DEVICE SELECTION PARAMETER. ARE 

; AN Y DEVICES SELECTED? 

;IF SO, BEGIN PROCESSING. IF NOT, DROP THE MODULE 



ENDS, BEGIN 



; IN ITI ALIZE THE NUMBER OF PASSES TO BE MADE. SET UP THE DH11 INTERRUPT 
; VECTORS TO INTERRUPT IN THF SUBROUTINE LINKING T ABLE. CALL SUBROUTINE 
;VCTLOAn FOR THIS PURPOSE. 



RFSTRT: 


CLR 




MOV 




BIC 




BEO 


1$: 


ADD 


ROR 




BCS 




BR 


2S: 


MOV 


BIC 


SETUP1: 


MOV 




BEQ 




MOV 




MOV 




MOV 


1$: 


ASR 




BCS 




BEQ 




ADD 




TST 




BPL 




ADD 




ADD 


4|J 


ADD 




BR 


2S: 


JSR 


BR2 




JSR 




BR1 




TST 




BPL 




ADD 


55: 


BR 



RO 

pl5ooo,Ri 

ff' R0 

2S 
Is 

CNTTBL(RO), 
#177760, SEL 

SELECT, Rl 
DROP 

VECTOR £ R0 

ADDR,R2 

#LNKTAB,R3 

Rl 

2$ 

SETUP2 
#10, RO 

SRI 

Jfo,RO 
#20, R3 
|20,R2 

R5,VCTL0AD 



R5, VCTLOAD 

#io,ro 



;INIT POINTER 
JGET BAUD RATE 
; THROW 2040 CNF BIT AWAY 
;LEAVE IF SRI IS 
?ELSE BUMP POINTER 
;LOOK FOR THE SRI BIT 
; LEAVE IF WE FOUND IT 
J ELS E DO IT AGAIN 
ICONT JSET ITERATION COUNT 

ECT ; REMOVE UNWANTED BITS FROM THE DEVICE SELECTION 
; PARAMETER 

;copy the device selection parameter into rl 

; if no devices selected (all flags clfar) drop the 

;module 

;L0AD THE VECTOR ADDRESS IN RO 

;LOA D R2 WITH ADDRESS OF FIRST DHll 

;POINT R3 TO THE BEGINNING OF JSR LINKING TABLE 

; ISOLATE A SELECTION FLAG IN THF CARRY BIT 

;IF THE FLAG IS SET, GO SET UP THE VECTORS 

;IF NO FLAGS ARE LEFT, GO SET UP THE BUFFERS 

; IF MORE FLAGS ARE SET, ADJUST POINTERS. THE 

; VECTOR POINTER... 

jEIGHT WORDS RET WEE N VECTORS ? 

;BR IF NOT 

;F1X VECTOR POINTER 

} THF ADDRESS POINTER... 

J AND THE LINKAGE TABLE POINTER 

;GO SFT UP THE NEXT DHll ADDRESSES 

;C ALL THE VECTOR SETUP ROUTINE FOR RECEIVER 

;VECTOR, PASSING THE RECEIVER BR LEVEL AS THE 

* ART UM F NT 

S SET UP THE TRANSMITTER VECTOR PASSING THE 
; TRANSMITTER BR LEVEL AS THE ARGUMENT 
;EIGHT WORDS BETWEEN VECTORS ? 
;BR IF NOT 

;fix vctr pointer 

;go setup the next dhu 



;THIS BLOCK RESETS ALL THE QUEUE POINTERS, CLEARS THE TRANSMITTER TEXT BUFFER, TH? 
;RECEIVER BUFFERS, AND THE QUEUES. THIS IS THE BEGINNING OF THE ITERATIVE PART OF THE 
;PROGRAM. 
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SETUP2: MOV 

MOV 



MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
DEC 
BNE 
CLRB 



IS: 



#XMTQUE,XMTQP I 

#XMTQUE,XMTQPO 

#RCVQUE,RCVQPF 
i RCVQUE,RCVQPO 
ERRQUE,ERRQPI 
ERRQUE,ERRQPn 
XMTQUE, R3 
:294.,R4 

IS 

LCKOUT 



;P0INT THE TRANSMIT QUEUE ENTRY ( IN > POINTER' 

;TO THE BEGINNING OF THE QUEUE 

;P0INT THE TRANSMIT QUEUE RETRIEVAL (OUT) 

;POINTER TO THE BEGINNING OF THE QUEUE 

;SET UP THE RECEIVER QUEUE POINTERS 

?SETUP THE ERROR QUEUE POINTERS 

;POINT R3 TO THE BEGINNING OF THE QUEUE AREA 

; USING R4 AS k COUNTER CLEAR - 

; TRANSMITTER, RECEIVERS, AND ERROR QUEUES.... 

TRANSMITTER TEXT BUFFER... 

; RECEIVER SILO BUFFERS 

?CL EAR THE BUFFER ACCESS FLAG 

INITIALIZES THE DHll CONDITIONS, SETS THE CHAR 



;THIS BLOCK SETS THE WATCHDOG TIMER FLAG, INITIAL 

; AND BAUD RATE, AND SETS THE EXTENDED ADDRESSING RITS FOR THE ACTIVE DH11S 



actvate:mov 

MOVB 

MOV 

MOV 



SELECT, RO 
ROjt DONFLG 
ADDR,R1 
#XMTBUF,VA 



IS: 



2$: 



GETPAS, BEGIN, 



ASR 
BCS 
BEQ 
ADD 
BR 
MOV 



BIS 
BIC 
BIS 
MOV 
MOV 

MOV 

JSR 
DEC 
BEQ 
INC 
BR 




IT11,(R1) 



#-4,10(Rl) 

PC, BAUDRTE 
R2 
2S 



;COPY THE OEVICE SELECTION PARAMETER 

; SET THE WATCHDOG TIMER DEVICE COMPLETION FLAG 

;LOAD THE ADDRESS OF THE FIRST DHll 

JGET THF PHYSICAL ADDRESS OF TH*" TRANSMITTER 

; BUFFER 

;GET PHYSICAL ADDRESS FROM 16-BIT VA 
^ISOLATE A SELECTION FLAG IN THE CARRY BIT 
?IF SELECTED, GO SET UP THE DEVICE REGISTERS 
JIF NO MORE SELECTED, GO SET UP THE DATA 
JPOINT Rl TO THE NEXT DHll 
;PROCESS NEXT DHll 

;MASTER CLEAR THIS DHll AND SELECT LINE 

; ENABLE MAINTENANCE MODE OPERATION 

;ERASE INVALID INFORMATION FROM THE E A BITS IN 

;SET THE EXTENDED ADDRESS BITS OF THE TEXT 

?USE R2 TO COUNT 16 LINES BEING SET UP 

;LOAD THE PHYSICAL ADDRESS OF THE TRANSMITTER 

; BUFFER INTO THE CURRENT ADDRESS REGISTER 

J LOAD THE BYTE COUNT REGISTER WITH THE NUMBER 

?OF CHARACTERS TO BE TRANSMITTED 

;GO CALCULATE THE BAUD RATE TO BE USED 

;REDUCE THE COUNT. ARE ALL 16 LINES SET 7 

?IF YES, GO PROCESS NEXT DHll 

?IF NO, INCREMENT THE LINE SELECTION PARAMETER 
;GO SET UP THE NEXT LINE 



JTHIS BLOCK SETS Up THE TRANSMITTER TEXT WITH THE TEST DATA . IT INSURES THAT THE 
;EXTENDED ADDRESS BITS ARE SET, THEN STARTS EACH RECEIVER AND EACH TRANSMITTER SELECTED 



003166 



:mov 

MOVB 
MOVB 

MOV 

MOVB 

INCB 

DEC 



#XMTBUF,R1 
DATA, BGnDAT A 
D AT A, BGND AT A4-1 

Sat" A^(R1) + 

DATA 

R2 



;POINT Rl TO THE START OF THE BUFFER AREA 

;CQPY THE FIRST DATUM BEING TRANSMITTED IN THIS 

; GROUP .BGND ATA WILL BE USED TO SET 

;UP LNCKBF( THF LINE CHECK BUFFER ) IN THE CKDATA ROUTINE 

JUSE R2 TO COUNT THE LOOP ITERATIONS 

;PUT A CHARACTER IN THE BUFFER, BUILDING THEM 

;IN DATA, WHICH WILL CREATE A BINARY INCREMENT PATTERN. 

?REDUCE COUNT. HAVE ALL CHARACTERS REEN MADE? 
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47 6 
477 
47R 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
48<3 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 

IH 

515 
516 
517 
518 

Hi? 
§31 

523 
524 
525 
526 
527 
528 
52Q 
530 
531 



000662* 0013 

000664- 

000670* 
000674- 



0167 

ol-- 



000676* 
000700' 

mm 

000710 



6701 
006200 
03404 
01414 
"701 

012761 



000716' 052711 



000722' 
000730' 



000732- 
000740* 
000742- 
000742- 
000746- 
000752- 

000756- 
000760- 
000762- 
000764- 
000770- 



012761 
000764 



012767 
005004 

104407 
104407 
105767 

001454 
005304 
001367 
005367 
001363 



000776- 
001002- 
001006' 

001010- 

001012- 

001014- 
001022' 



001030- 
001036- 



040367 
005067 
006003 



06 2767 
000771 
010467 



104420 
004067- 

004767 



003134 
17711? 



000020 

000040 000015 
020000 

177777 000012 



000005 003070 



oooooo- 
oooooo- 

003071 



000772- 116703 003051 



003022 
17707? 



000020 177056 
00302? 



000000- 004052' 
000772 



3$: 
4$: 



BNE 

MOV 

MOV 

ASR 

BCS 

BEQ 

ADO 

BR 

MOV 

BIS 

MOV 
BR 



1$ 

SETfECT c RO 
ADDR,R1 

RO 

tSrset 

|20,R1 
#BIT13,(R1) 

Si 1 



|-1,12(R1) 



;if no, go load the next character 

;copy the device selection parameter 

? load the address of the first dh11 

; isolate a selection flag in the carry bit 

;if selected, go start the device 

;if no more selected- go start watchdog timer 

;point rl to the next dh11 

;go process the next dh11 

} load the silo alarm level into the silo status 

;register 

;enable transmitter and non-existent memory 
; interrupts 

; enable the transmitters for all 16. lines 
•process the next dh11 



;THIS IS THE WATCHDOG TIMER . WHEN A DEVICE HAS SUCCESSFULLY TRANSMITTED AND 

/RECEIVED ALL DATA. IT CLEARS ITS CORRESPONDING BIT IN DONFLG. IF THIS 

;DOES NOT OCCUR, AN ERROR MESSAGE IS REPORTED. STATC IN THE 

sERROR MESSAGE TELLS WHICH DEVICE WAS SLOW OR HUNG. CSRA WILL BE ZERO. 

;A MODULE MESSAGE IS REPORTED. IF MORE DEVICES ARE TO BE PROCESSED, THIS 

; ITERATION TS CONSIDERED COMPLETE. IF NO DEVICES REMAIN TO BE PROCESSED, 

;THE MODULE IS DROPPED. 



TMRSET: 
TIMER: 

IS: 



MOV 
CLR 



#5,TMRCNT 
R4 



BREAKS, BEGIN 
BREAK?, BEGIN 



TSTR 

BEQ 
DEC 
BNE 
DEC 
BNE 

MOVB 

BIC 
CLR 

ROR 

BCS 

INC 

ADD 

BR 

MOV 



DONFLG 

FINISH 
R4 
1$ 

TMRCNT 
TIMER 

DONFLG, R3 

R3, SELECT 
CSRA 
R3 

3$ 

R4 

J20,CSRA 

rI,numbai 

ft**************** 



;set the timer count for the break loop 
jusing r4, return to monitor 65535 times 

temporary return to monitor.... 

;then continue at next instruction. 

;if donflg is clear, each selected device was 

; successful 

;if so, perform endpass processing 
/if not, reduce count and break again 
?break if count not exceeded 
;reduce the overall time. is it exceeded? 
;if no, start another break loop 

;if timeout occurred, save the remaining flag 

jlN R3. 

/clear the selection flag for this device 
;/setup to report csr 

•determine which device was read for reporting 
;purposes 

;if this is the device, r4 contains the correct 

/line number... go report it 

;if not, increment r4, which was initially 

/from the previous loop 

//add device offset for correct dh11 

;go see if this is the device 

;the device number will be reported as statc 

***************************************** 

;CONVERT NUMB Al TO ASCII AND 
?STORE AT M2 



OTOA$, BEGIN, NUMBA1,M2 
.****************** ******************************************** 

JSR PC,SAVREG ;SAVE THE REGISTERS BEFORE LEAVING THE MODULE 
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577 
57*> 
579 
580 
581 
582 
583 
584 
585 
586 
5«7 



001044- 
001052- 



056767 
005067 



104403 
"04767 
.05767 
001002 




176736 
177030 



104405 000000- 



000000" 
000776 
002722 



000000* 



oooooo- 

177276 



000000 
004054' 



002664 
000002 
002660- 



002656 
002650 



002642- 002640 



!622 
)002 



002660- 



002614 
002605 



002642- 002576 



176644 
176642 



004767 00057? 



SEQ 001 



ADD ADDR/CSRA , /ADD BASE ADDR 

CLR ERRTYP SUNKNOWN 

.************************************** 

HR 



ADD BASE ADDRESS TO OFFSET FOR ERROR CALL 



************************* 



HRDER$,BEGIN, NULL 
***************** 

MSGN$, BEG I N,HUNG 

JSR PC,GETREG 
TST SELECT 
BNE FINISH 

ENDS, BEGIN 



*********************************************** 

/ ASCII MESSAGE CALL WITH COMMON HEADER 
; RESTORE THE PREVIOUS REGISTER VALUES 
;ARE THERE ANY DEVICES STILL ACTIVE? 
>IF YES, REDUCE COUNT AND CONTINUE 

;IF NO, DROP THE MODULE 



;THIS BLOCK REDUCES THE ITERATION COUNT AND GOES TO SETUP2 IF THE COUNT IS NOT EXCEEDED 

finish: 



ENDITS, BEGIN 
JMP SETUP2 



; SIGNAL END OF ITERATION. 
;MONITOR SHALL TEST END OF PASS 



-TRANSMITTER INTERRUPT SERVICE ROUTINE 

; THTS ROUTINE STORES THE ADDRESS OF THE CSR POINTER (OFFSET IN THE JSR LINKAGE 
~* " — " IT DETERMINES THIS A NON-EXISTENT MEMORY ERROR 



?TA^LE) IN THE TRANSMITTER QUEUE. 

;OR A DATA INTERRUPT. IF U IS THE FORMER, IT IS SETUP FOR REPORTING. IF IT 
;IS THE LATTER, FURTHER SERVICE IS DEFERRED TO PRIORITY LEVEL BY A PROGRAM 
J INTERRUPT REQUEST, THE ROUTINE THEN ENABLES INTERRUPTS FOR THE CORRESPONDING RECEIVER 
; AND RETURNS CONTROL TO THE MONITOR. 



xmtint: 



XMTSRV: 



H: 



MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 

TST 

BMI 

BIT 

BNE 

MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 



R5,»XMTQPT 
*2,XMTQPI 
5XMTQUE*16,XMTQ 

#XMTQUE,XMTQPI 

R1,-(SP) 

R2,-(SPi 

R3,-(SP) 

R4,-(SP) 

»XMTQP0,R1 

|2,XMTQPO 

|XMTQUEH6,XMTQ 

#XMTQUE,XMTQPO 
T Rlj,R0 



/LOAD THE OFFSET TO THE CSR INTO TRANSMITTER QUEUE 
; UPDATE THE QUEUE ENTRY POINTER 

PI # HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
;IF NO, CONTINUE PROCESSING 

;IF YES, RESET THE POINTER TO QUEUE BEGINNING 
/RESTORE THE PREVIOUS R5 VALUE 



(RO 



BIT10,(R0) 



>FETCH THE OFFSET FROM THE QUEUE 
;UP DATE THE QUEUE RETRIEVAL POINTER 
PO SHAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
J IF NO, CONTINUE PROCESSING 

;IF YES, RESET POINTER TO BEGINNING OF THE QUEUE 
;LOAD CSR ADDRESS INTO RO 
;IS TH|S A VALID INTERRUPT? 



IF YES, GO ENABLE RECEIVER INTERRUPT 



RO.CSRA 

( RO), ACSR 

PC,S*VRF.G 

(SP)*,R4 

(SPH,R3 

(SPH,R2 

(SP)*#R1 



fir bu/ L»MP,K-iAPit inc. I 
;IF NON-EXISTENT MEMORY (BIT 

/THAT TYPE OF ERROR. OTH 

•LOAD THE DEVICE ADDRFSS 



. (BIT 10 SET) GO PROCESS 

RRQEs-QTHERWISE IT IS A FALSE INTERRUPT 



;SAVE THE CSR CONTENTS 
?SAVE THE REGISTERS BEFORE ERROR MESSAGE 



OHAL DEC 
XDHALO.P 
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SEO 0013 



588 



111 

598 
599 

if? 
SSI 

§04 

fa 

607 

SS9 

610 

f 

614 
615 
616 
617 
618 
619 

P? 

622 
623 
624 



627 
628 
629 
630 

IP 

633 

m 

636 

h 



639 
640 
641 
642 
643 



001254* 012600 
001256* 000004 
001264* 012767 
001272* 104405 

8$«« 



04400 
10067 

in 

12603 



881183- 

001310* 

mm- 

881118" 

001332* 
001334* 



022767 
103003 



001264* 

176614 

000000 



88HJ8- 

001342" 000004 
001350* 012767 
001356* 104405 
001364- 004767 

mnv ptj 

001400- 052710 

ink m 

001412* 012601 
001414- 012600 
001416* 000002 



000000* 

000010 

000000- 

IW 

000000" 
000100 



001350* 

176530 

000000 



001432* 
001440* 

001442* 515767 
001450* 012605 



10$: 



2$: 



11$: 



3$: 



UllM 002362 
002700- 002354 

002662* 002344 



MOV (SP)«>R0 

pirq$JbegIS#Io$ 

mnumiumi**.. 

jsr PC-GETREG 
BIC #n0000 r (R0) 

EXIT$/BEGIN 

MOV ROfCSRA 

MOV fR0><ACSR 

JSR PC/SAVREG 

MOV I SP)*/R4 

MOV (SP)*/R3 

MOV (SP5+,R2 

MOV (SP)* # R1 

MOV (SP)*/R0 

£Irq$7begIn/II$ 
MOV ilo.ERRTiP 

J ******************** 
.USScHSIhSIU.... 

JSR PC.GETREG 

BIC #152000, (RO) 

EXIT$/BEGIN 

BIS £BIT6,(R0) 

MOV $SPH,R3 

MOV <SPW/R2 

MOV ISP ~" 

MOV (SP 
RTI 



; QUEUE UP TO CONTINUE AT 10$ AND RTI 

t **iikk^\i*iiUM*n********************** 

jFALSE INTERRUPT REQUEST FROM TRANSMITTER 
******************************************* 



; RESTORE THE REGISTERS „ , m 

; DELETE THE FALSE INTERRUPT AND THE INTERRUPT 

• put or p 

5 EXIT TO MONITOR. MODULE WAIT FOR I NTE 
;LOAD THE DEVICE ADDRESS 
;SAVE THE CSR CONTENTS 

;SAVE THE REGISTER VALUE BEFORE ERROR MESS. 



; QUEUE UP TO CONTINUE AT 11$ ANDJJTI 

**ci^***28*f ****************** ************ 

/NON-EXISTENT MEMORY ADDRESSING FAILURE 
****************************************** 

/RESTORE THE REGISTERS 

; CLEAR INTERRUPT ENABLE AND INTERRUPT BITS 

' IEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

;fnable receiver INTERRUPTS 



)*#RO 



,THIS ROUTInI'sTORES A POINTER TO C !h|c1r ADDRESS OF THE INTERRUPTING DEV ICE IN THE 
; RECEIVER QUEUE. SERVICE IS DEFERRED TO PRIORITY LEVEL 0. AT DEFERRED SERVICE (RCVSRV), 
;THE OFFSET IS FETCHED FROM THE QUEUE. THE INTERRUPT AND I NTERRUPT ENABLE BITS ARE 



ALL CHARACTERS 

DATA ERRORS. 

SUBSEQUENT 
~ IF THERE 
__ _ _ _ RELEASES 

•THE LINE CHECK BUFFER AND CLEAR THE CORRESPONDING BIT IN DONFLG. 



IF 



RCVINT: 



MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 



R5,»RCVQPI 
#2/RCVQPI 



;STORE THE OFFSET IN THE RETRIEVAL QUEUE 
#2;ftCVQPI /UPDATE THE QUEUE ENTRY POINTER 

iRCVQUE*16/RCVQPI ;HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
f$ ' ;IF NOT. CONTINUE PROCESSING 

#RCVQUE*RCVQPI / RESET THE POINTER TO QUEUE BEGINNING 
?SP)+/R§ ;RESTORE THE PREVIOUS VALUE OF R5 
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644 001452* 000004 




000000- 001460* 
002365 



000000* 
000000- 



690 
691 

m 

694 
695 
696 

in 

699 
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PIRQS/BEGIN/RCVSRV ; QUEUE UP CONTINUE^ AT^RCVSRV^ AN D RTI 

";TEST"THi"BUFFER"LOCK"FLAGr IS ACCESS PERMITTED? 
" • — -« '™ AND CHECK THE OAT A 



SEQ 0014 



TSTB 

teg. 



002345i 
002306 



88278?- 88119 2 
002662- 002262 
000300 



077000 
000100 



002272 



001660- 012703 
001664- 01270| 

881l?4- 005*303 
001676- 001374 

mm llm 

001716- 002024 



000240 

000000- 

000000- 

000262 

002226 

176260 

176250 
176246 

888ll7 176240 
000000- 000000 
000214 



000010 

003770' 

002146 



11$: 



1$: 



3$: 



BREAKS/ Bl 
5 /BEG IN 



LCKOUT 



RCVSRV 
LCKOUT 
ftRCVQPO/RO 



BREAK 
BR 

DECB 
MOV 
ADD 
CMP 
BHIS 
MOV 
MOV 
BIC 

MOV 
MOV 
MOV 
MOV 
BGE 
DEC 
BNE 
BR 
TST 
JSR 

BREAKS, BEGIN 
BREAKS/ BEGIN 
JSR PC»GETREG 
DEC RCVTMR 
BPL 2 h 



;if yes* go set the lock and ch 
;temporary return to monitor* ■ . 
;then continue at next instruct 
j try to access again 
;deny other accesses to the buffer 
qpo/ro ;fetch the offset from the queue 

2.RCVQPQ /UPDATE THE QUEUE RETRIEVAL POINTER 

RCVQUE*16,RCVQP0 SHAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
* ;IF HQ, CONTINUE PROCESSING 

;IF YES/ RESET THE POINTER TO THE QUEUE BEGINNING 
;LOAD THE CSR ADDRESS INTO PI 

/DISABLE RECEIVER INTERRUPT AND INTERRUPT ENABLE 
: AND POINT Rl TO THE NEXT RECEIVED CHAR. REGISTER 
;LOAD THE SOFTWARE SILO BUFFER ADDRESS 
;SET THE RECEIVER BREAK LOOP TIMER 
;SET THE COUNT FOR STORING THE DATA 
?STORE & WORD IN THE SOFTWARE SILO 

;IF THE DATA WASN'T VALID/ GO ALLOW A LITTLE TIME FOR 
;IF IT WAS VALID/ REDUCE THE COUNT. 
;IF NOT ZERO/ GO STORE THE NEXT WORD 
SIF ALL CHARACTERS RECEIVED/ GO CHECK THEM 
/RESET R2 TO THE PROPER BUFFER LOCATION 
;SAVE THE REGISTER VALUES 
; TEMPORARY RETURN TO MONITOR.... 
' — ™*" ,,n UCTlON. 



#RC?QUE,RCVQPO 
<R0)*/R1 
|300/^RD* 

0hR2 
^OOOj RCVTMR 

|RlK<R2)* 




MOV 



MOV 
MOV 



R3/ASTAT 

-(R0)/CSRA 
"(R0)*,ACSR 
SAVRE~ 



TED FOR A CHARACTER? 
?TRY TO GET ONE. 

;STATC WILL SHOW HOW MANY CHARACTERS 
/ WER E NOT RECEIVED 
/LOAD THE DEVICE ADDRESS 
;LOAD THE CSR CONTENTS 



JSR PC* SAVREG } SAVE THE REGISTERS 

lmmmiMm*******m**mi*m 

PC/GETREG 



3 



SR 



ITHIS ROUTINE PERMITS ONLY ONE DEVICE TO HAVE ITS DATA CHECKED AT A TIME. PENDING rp 

; DEVICES RETURN TO THE MONITOR IN A HUT LOOP. WHEN ACCESS IS PERMITTED/ THE DATA IS CHE 

;FOR EACH LINE OF THE DEVICE. DAT* ERRORS ARE REPORTED. 



000010 
000100 



002130 



CKDATA: MOV 

MOV 

2$: MOV 
DEC 
BNE 
MOV 
MOV 
MOV 

3S: MOV 

BGE 



|lnCKBF/R5 
BGND ATA/ ( R5 )* 

R3 
2$ 



(R0),R2 

W? 1 



DKDVCNMBR 

?R2)+ f R0 
RCVDONE 



;SET UP A COUNT FOR CLEARING THE BUFFER 
;POINT TO THE BEGINNING OF THE BUFFER 
;SET UP TWO LINE CHECK BYTES 

; REDUCE THE COUNT. HAVE 16. BYTES BEEN CLEARED? 

;IF NO, GO CLEAR THE REMAINING 

;LOAD THE SOFTWARE SILO ADDRESS IN R2 

;SAVE THE NUMRER OF THIS DEVICE 

;LOAD COUNT TO COMPARE 64. CHARACTERS 

;FETCH A WORD FROM THE SILO INTO RO 

;IF IT'S INVALID/ GO CLEAN UP BUFFERS 
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700 
701 
702 
703 
704 
70S 
706 
707 
708 
70Q 
710 
711 

m 

714 

715 

1 \ f > 
717 

718 

719 
720 
721 
722 
723 
724 
725 
726 
727 
7 28 
72Q 
730 
731 
732 
733 
734 
735 
736 
737 
738 
73^ 
740 
741 
742 
743 
744 
745 
746 
747 
743 
74Q 
750 
751 
752 
753 
754 
755 



001720' 
001724 ' 
001726' 
001732* 
001736 * 
017 4 0' 
001744' 
001752* 
001754' 
001760' 
001764' 
017 6 6' 



001770' 
001774' 
001776' 
002000' 
002002' 
002006' 
002010' 
002014' 



002020' 
002022' 
002024' 
002026' 
002030' 
002032' 
002034* 



002036' 

002042' 
002044' 
002046' 
002050' 
002052' 
002054' 
002060' 
002062' 
002066' 
002072' 



032700 070000 
001402 

004767 000304 
110067 00211? 
000300 



042700 
126067 
001402 
004767 
105260 
005303 
001352 



002374 

140067 
104400 



010320 
113520 
005200 
022323 
010223 
005723 
000205 



016705 
010025 
010125 
010225 
010325 
010425 
022705 
103002 
012705 
010567 



177750 
003770* 002075 



000422 
003770' 



105067 002055 
005000 
000261 
006100 
005367 



002032 



002033 

oooooo- 



002702* 
001726 



} ARE THERE ANY TRANSMISSION ERRORS? 
; IF NCI, GO DETERMINE THE LINE NUMBER 
}XF YES- GO DETERMINE THE ERROR TYPE 
;SAVE THE RECEIVED CHARACTER 
;PUT THE LINE NUMBER IN RO'S LOWER BYTE 
; ISOLATE THE LINE NUMBER IN RO 
RCVDATA ; IS THE DATA CORRECT? 

; IF YES/ GO CHECK THE NEXT CHARACTER 
;IF NO, GO REPORT A DATA ERROR 
;SET UP THE NEXT CHARACTER FOR THIS LINE 
S REDUCE THE COUNT, ARE ALL 64. CHARACTERS CHECKED? 
; IF NO, GO CHECK THE NEXT CHARACTER. 

;THIS ROUTINE UNLOCKS THE LINE CHECK BUFFER TO PERMIT ACCESS BY OTHER DEVICES. 

;IT THEN COMPUTES THE LINE NUMBER AND CLEARS THE APPROPIATE FLAG FROM THE WATCHDOG 

/ TIMER BYTE. 



BIT 

BEQ 

JSR 

MOVR 

SWAB 

BIC 

CMPR 

BEQ 

JSR 

INCB 

DEC 

BNE 



J70000 r R0 

P^STATERR 
RO, RCVDATA 

RO 

#177760, RO 
^NCKBF(RO), 

PC* & DERRQR 
LNCKBF(RO) 

R3 
3S 



RCVOONE :CLKP LCKOUT 

CLR RO 
SEC 

15: ROL RO 

DEC DVCNMBR 

BGE IS 

BICB RO, DONFLG 
EXITS, BEGIN 

^SUBROUTINES 



; RESET THE BUFFER ACCESS FLAG 
;THE FLAG WILL PROPAGATE IN RO 

;USE THE CARRY BIT TO BUILD THE DELETION FLAG 

;MOVE THE FLAG TO THE NEXT DEVICE 

; WHEN THIS NUMBER IS NEGATIVE, THE CORRECT 

} DEV ICE IS POINTED TO. 

;CLEAR THIS FLAG 

;EXIT TO MONITOR. MODULE WAIT FOR I NTER r UPT • 



iauHKUUiista 

} THE FIRST IS THE VECTOR LOADING SUBROUTINE. THE VECTOR ADDRESS IS PASSED IN RO, 

?THE DEVICE ADDRESS IS PASSED IN R2. THE LINKING TABLE ADDRESS IS PASSED IN R3. 

; THE RUSS REQUEST PRIORITY LEVEL IS A PARAMETER TAKEN INDIRECTLY THROUGH R5. 

VCTLOAD:MOV 
MOVB 
INC 
CMP 
MOV 
TST 
RTS 



R3,CR0>* 
|p5)*,(RQ)* 



5LOAD THE ADDRESS OP THE LINKING INSTRUCTION 
, AND THE PRIORITY LEV EL_INTQ THE_VECTOR 



RO TO |H| NEXT_VgCTQR_ ADDRESS 



>POINT R3 TO f HE CSR INSERT LOCATION 
;LOAD THE DEVICE ADDRESS IN THE LINK TABLE 
; ALIGN R3 FOR THE NEXT DEVICE 
/RETURN TO CALLING BLOCK 



;THIS ROUTINE SAVES THE REGISTER VALUES IN THE ERROR QUEUE, A FIRST-IN, 
;FIRST-OUT DISCIPLINE WRAPAROUND BUFFER. 



MOV 

MOV 
MOV 
MOV 
MOV 

MOV 

CMP 

BHIS 

MOV 

MOV 

RTS 




♦60/R5 



;USE R5 FOR INDEXING CAPABILITY 
;SAVE RO... 
;SAVE Rl... 
;SAVE R2... 

;SAVE R3..„ 
; AND R4 

;HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 

?IF NO, GO RELOAD THE POINTER 

; RESET R5 TO THE QUE BEGINNING 

?SET THE ENTRY POINTER TO NEXT ENTRY POINT 

/RETURN TO THE CALLING BLOCK 



;THIS ROUTINE RETRIEVES REGISTER VALUES FROM THE ERROR QUEUE 
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SEQ 0016 



756 
757 
758 
75o 
760 
761 
762 
763 
764 

m 

767 
768 
76Q 
770 
771 
772 
773 
774 
775 
776 
777 
778 
770 
780 
781 
782 
783 
784 
785 
786 
787 
788 
78° 
790 
791 
792 
793 
794 
705 

?35 

79R 
799 
800 
801 
802 
80 3 
R04 
805 
R06 
807 
80 R 
RQO 
810 
Rll 



002074' 
002100' 
002102' 
002104* 
002106- 
002110' 
002112' 
002116' 
002120' 
002124 ' 
002130- 



002132* 
002136' 
002140* 
002144* 
002146' 
002152- 
002154* 
002160- 
002162' 
002164* 
002166* 
002170* 
002172* 
002174* 

002202- 

002204 ' 
002206' 
002210* 
002212' 
002214' 
002220* 
002224* 
002226* 
002234* 



002236' 
002242- 
002246* 
002250* 
002254- 
002256* 
002262' 
002264* 
002266* 
002272* 
002276 ' 



016705 
012500 
012501 
012502 
012503 

vm\ 

103002 
012705 
010567 
000207 



005767 
001433 
016704 
100003 
042704 
001425 
012703 



006004 
103402 
005303 
000774 
000257 
010305 
006105 
006105 
006105 
006105 
060305 
000305 
006005 
006005 
052705 
050561 
000207 
052761 
000207 



004767 
010167 
005004 
016703 
001404 
062704 
005303 
001374 
066704 
010467 
010001 



001722 



002702 
00167? 



177574 
175634 



001564 
000020 



175514 
175602 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

MOV 

RTS 



ERRQPO/R5 

(R5)+,R0 

<R5W,R1 

(R5H,R2 



SR5)*,R3 
R5)+/R4 
ERRQUE+60/R5 

#IrRQUE,R5 
R5, ERRQPO 



USE R5 FOR INDEXING CAPABILITY 
RETRIEVE RO... 

AND R4 

. HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
?IF NO, GO RELOAD THE POINTER 
-RESET R5 TO THE QUEUE BEGINNING 

SET THE RETRIEVAL POINTER TO THE NEXT FETCH POINT. 

RETURN TO THE CALLING BLOCK 



;THIS ROUTINE CALCULATES THE BAUD RATE FROM THE SRI OPTION. IF SRI IS 0,THE DEFAULT 
; RATES OF 9600. ARE ASSIGNED. THE LEAST SIGNIFICANT BIT IS THE ONLY ONE CONSIDERED. 
?THE BAUD RATES ARE THEN LOADED INTO THE PROPER LINE PARAMETER REGISTER. 



175660 


8AUDRTE: TST 






BEQ 


175652 




MOV 






BPL 


100000 




BIC 






BEQ 


000017 




MOV 






ROR 






BCS 






DEC 






BR 




2$: 


CCC 




MOV 






ROL 






ROL 






ROL 






ROL 






ADD 






SWAB 






ROR 






ROR 


000003 




BIS 


000004 




BIS 






RTS 


033503 


000004 35: 


BIS 






RTS 



SRI 

iil,R4 
|IlT15,R4 

si 7 -" 

2$ 

R3 
15 

R3,R5 

R5 

R5 

R5 

R5 

R3,R5 

R5 
R5 
R5 

#3,R5 
R5,4(R1) 

|33503,4(Rl) 



;IS A SPECIFIC RATE SELECTED? 
;IF NO, GO ASSIGN THE DEFAULT RATE 
;IF YES COPY SRI 

;br if not b. words BETWEEN VECTORS 

; CLEAR VECTOR SELECT BIT 

; BR IF DEFAULT - USE 9600 BAUD 

;SET UP THE BIT CONFIGURATION FOR A BAUD RATE SELECTION 

; ISOLATE THE NEXT BIT IN THE CARRY BIT 

;IF THIS IS THE B TT, PUT TOGETHER THE BAUD RATE 

; IF NOT, CALCULATE THE NEXT BIT CONFIGURATION 

;GO CHECK THE NEXT ALTERNATIVE 

/ELIMINATE EXTRANEOUS FLAGS BEFORE ROTATING 

;MAKE A DUPLICATE COPY OF THE BAUD RATE 

; BUILD THE TRANSMITTER RATE IN R5 



;add THE RECEIVER RATE TO THE TRANSMITTER RATE 
> ALIGN THE RATE TO BIT POSITIONS 6-13 



;PLACE THE BAUD RATES IN THE LINE PARAMETER REGISTER 
/RETURN TO THE CALLING PROCEDURE 
;SET THE DEFAULT RATEC9600. BAUD) 

^RETURN TO CALLING PROCEDURE 



;TH IS ROUTINE DETERMINES WHAT TYPE OF ERROR WAS INDICATED BY THE SILO AND REPORTS EACH 

ST ATERR : J SR PC,SAVREG J/SAVE THE REGISTERS 

MOV Rl, ACSR ;REPORT THE CSR CONTENTS 

CLR R4 ;/SETUP TO CALCULATE 

MOV DVCNMBR, R3 //THE CSR 

BEQ 2$ } /DEVICE JUST ADD ADDRESS 

IS: ADD #20, R4 ; /POINT NEXT DH11 

DEC R3 , /DECREMENT DH NUMBER 

BNE 1$ ;/ RIGHT DHll? 

2$: ADD AuDR,R4 ; /ADD BASE ADDRESS TO OFFSET 

MOV R4,CSRA J/REPORT CSR ADDRESS 

MOV R0/R1 ?CALC LINE tf 



4fa 
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812 

813 

814 
815 
816 



817 
8lf 



819 

B2C 



830 

S3! 

833 



838 

m 

841 
842 
843 
844 
845 

S1 6 7 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 

§11 
M 

862 
863 
864 
865 
866 
867 



mm- 
mm- 

002 



002326' 



002336' 
002340' 

002346' 



002354' 
002356* 
002360* 

002366- 



p mm- 



mm 

010167 
006100 
006100 
103006 
012767 

104406 

006100 

- "^106 
'67 

104406 

006100 
103006 
012767 

104406 

004767 
000207 



103006 
01276" 



002402- 

m 

mur- 
mur- 

002452- 
002454- 
002460- 
002464- 

002470' 

002474' 
002500* 



002502' 
002506' 

002510' 



004767 

->4 

13 



MiM* 



0" 

0^5303 
"17 



mm 

" "467 
067 

m 

010067 

104404 

004767 
000207 



177770 
175572 



000021 
000000' 



175560 
000000 



000022 
000000' 

000023 

000000' 

177474 

177430 
001424 
000020 

175354 
175442 

miw 

175424 

003770' 

175412 

000000* 

177374 



175540 

000000 



175520 
000000 



175442 
175436 



004567 
000000 
002770- 



3S: 



SWAB 

BIC 

MOV 

ROL 

ROL 

BCC 

MOV 

. **** 

BCC 
MOV 
****** 

SOFERS 
. ***** 

ROL 
BCC 

m 



Rl 

ttl77770,Rl 
Rl/ ASTAT 

R0 
RO 

|fl,ERRTYP 
**************** 

/REGIN- NULL 
**************** 

RO 

tt22,ERRTYP 
**************** 



RO 



*** * 

ATC 



; GET CORRECT HALF 

;leave only line a 

;PUT IT IN ASTAT 

;PLACE THE OVERRUN BIT I N THE CARRY 

;IF NO ERROR, GO CHECK THE NEXT BIT 
; OVERRUN ERROR 
***************************** 

JOVERRUV ERROR-LINE NUMBER I 

***************************** 

;PLACE THE FRAME BIT IN THE 
;IF NO ERROR, GO CHECK THE N 
; FR AMI NG ERROR 
*************************** 

#FR AMI NG ERROR-LINE NUMBER T 
***************************** 

;CHECK FOR A PARITY ERROR 
;IF NO ERROR, GO RESTORE THE 
f PARITY ERROR 
****************************** 



CARRY 
EXT B 

***** 

N STA 
***** 



***** 
IT 



REG I 
**** 
STAT 



5$: 



SOFERS* BEG I N# NULL ; P A R I T Y ERROR-LINE NUMBER IN ST ATC 

.*********************************************** 

5sr 

RTS 



****** 

ERS 

****** 
****** 



PC, GETREG 
PC 



; R ESTORE THE REGISTERS 
; RETURN TO CALLING PROCEDURE 



;THIS ROUTINE CALCULATES THE BUFFER ADDRESSES OF THE INCORRECT DATA AND REPORTS THE ER RO 



DERROR; 



1$: 



JSR 

CLR 

MOV 

BEQ 

ADD 

DEC 

BNE 

ADD 

MOV 

MOVB 

MOVB 

TST 

MOV 

ADD 

MOV 

• ****** 



PC,SAVREG 
R4 

DVCNMPR,R3 

p°' R4 

aSdR,R4 
R4#CSRA 
LNCKBFCRO )# 
RCVDATA, A" A 
-(R2) n 
R2, tf ASADR 
#LNCKBF £ R0 
RO,SB ADk 
*********** 



ASB 
S 



DETERS, BEGIN 
****************** 



;SAVE THE PRESENT REGISTER VALUES 
?/SETUP 

;/TO CALCULATE 
; /THE CSR 
;/POINT NEXT DH11 
//DECREMENT DH NUMBER 
; /RIGHT DH11 ? 

;/ADD BASE ADDRESS TO OFFSET 

;/REPORT CSR ADDRFSS 

;LOAD THE CORRECT DATA VALUE 

;LOAD THE ACTUAL DATA VALUE 

;GET THE SILO ADDRESS OF THE DATA 

;LOAD IT FOR REPORTING 

^CALCULATE THE CORRECT VALUE ADDRESS 

; REPORT IT 

**************************************** 



3sR 
RTS 



******* 



PC, GETREG 
PC 



;RESTORE THE REGISTERS 

; RETURN TO THE CALLING PROCEDURE 



'LINKAGE T ABL F 

;EACH ENTRY CONSISTS OF A JSR INSTRUCTION FOLLOWED BY A LOCATION INTO WHICH THE CSR IS 
;LOADED, FOLLOWED BY THE SILO BUFFER ADDRESS, FOLLOWED BY A JSR FOR THE TRANSMITTER 
;INTERr6pT, THE CSR ADDRESS WORD, AND THE NUMBER OF THE INTERRUPTING DEVICE 



JSR 


SILOO 



R5,RCVINT 



;LINK FOR RECEIVER 
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002512- 




602- 
--_604- 

nm- 

002612- 
002614' 
8°2616- 
002620- 
002622- 
002624* 

mw- 

002632- 
002634- 
002636- 
002640- 



002642' 
002662' 
002702- 



004567 


176402 


000000 




000000 




004567 


176672 


000000 




003170- 




004567 


176362 


000000 


000001 




004567 


176652 


000000 




003370' 




004567 


176342 


000000 




000002 




004567 


176632 


000000 




003570' 




004567 


176322 


000000 


000003 




017000 




017000 




017000 




017<J00 




005100 




003000 




001600 




000750 




000500 




000350 




000300 




000260 




000165 




000110 




000010 




000010 




000031 






0033' 



XMTQUE! 

RCVQUE! 
ERRQUE! 



xmtbuf: 

siloo: 
siloi: 
SIL02: 
SIL03: 
LNCKBF : 



R5, XMTINT ; L INK FOR TRANSMITTER 

R5,RCVINT ;L INK FOR RECEIVER 1 

R5, XMTINT ?LINK FOR TRANSMITTER 1 

R5,RCVINT ;L I NK FOR RECEIVER 2 

R5 , XMTINT ;L INK FOR TRANSMITTER 2 

K5,RCVINT /LINK FOR RECEIVER 3 

R5, XMTINT ;L I NK FOR TRANSMITTER 3 



JD IFF ERENT ITERATION COUNTS FOR 
; D IFF ERENT. BAUD RATES 



JSR 





t s » 

SILOI 
JSR 

1 

JSR 


SIL02 
JSR 

2 

JSR 


SIL03 
JSR 

3 

17000 

17000 

17000 

17000 

11700 

6000 

5100 

3000 

1600 

750 

500 

350 

300 

260 

165 

110 



;THESE ARE THE QUEUES. 

• BLKW 8. 

• BLKW 8. 

• BLKW 25. 

;THESE ARE THE BUFFERS 



• BLKB 

• BLKW 

• BLKW 
-BLKW 

• BLKW 

• BLKB 



4. 

64. 
64. 
64. 
64. 
16. 



TRANSMITTER SERVICE QUEUE 
J RECEIVER SERVICE QOEWE 
} ERROR SERVICE QUEUE 



;F0UR CHARACTER TRANSMITTER BUFFER 

RECEIVER BUFFER FOR DEVICE 0. 

/RECEIVER BUFFER FOR DEVICE 1 

^RECEIVER BUFFER FOR DEVICE 2 

; RECEIVER BUFFER FOR DEVICE 3 

JBUFFFR FOR CHECKING INDIVIDUAL LINE DATA 



;THESE ARE THE QUEUE POINTERS 



OHAL DEC/Xll SYSTEM EXERCISER MODULE 
XDHAL0.P11 ~~ 



GWBUFSs 

ir do NT 

IONUM 

INIT 
INITIA 
INTR 
LCKOUT 
LMCKBF 
LNKTAB 
HAP 



00|074R 

IoooIIr 

04405 

nm 

00036R 
00040R 

J0624R 
000000R 
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SEQ 00 21 




524* 



596 
535 



468 ff 

646 
706 
865# 



362f 
537 



954f 
9568 

535 
528 

m 

933 

528 
937? 



315 



706 

717S 

865 

637* 

652 



615 
594 



651* 
709* 



594 

946# 

318 

350 

934 



672 
613 



717* 
848 



684 

682 



945# 
85 2 



613 


682 


820 


826 


832 












319 


320 


337 


338 


339 


340 


341 


342 


343 


344 


351 


353 


354 


355 


364ff 


924 


925 


926 


927 


928 


935 


936 


937 


938 


939 


940 


942 


943 


944 


945 



871 

638* 

653* 



944# 

877 883 

639 641* 926# 

654 656* 927# 
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J5 

Re.i>fRT 

RES1 

RES2 

RSTRT 

S AV REG 

SBADR 

SELECT 

SETUP! 

SETOP2 

SILOO 

SILOl 

SIL02 

SIL03 

SOFCNT 

SOFERS= 

SOFPAS 

SPOINT 

§EP ■ 

SR2 



425 
370 



853* 
387* 

420# 
916§ 
917| 
918| 
919# 

820 



SEO 0022 



639 
650 
941# 
378# 



602 
389 
549 



669 
438 



679 
477 



656 



742# 
514* 



910f 



801 
539 



839 
933* 



826 832 

400 411 772 774 



S..,»£R 

SVRO 

SVR1 

S?R2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCHT 

TIMER 

TMRCNT 

TMRSET 

TRPDFD= 

VA 

VCTLOA 

VECTOR 
WAS ADR 

9K8 

XPLAG 

XMJBUF 

XKTINT 

XMTQPI 

XMTOPO 

XMTQUE 

XMTSRV 



00066R 
00Q70R 



341# 
342# 



367» 
801$ 



510 

lift 

443 

409 
392 
851* 



468 

868 

559* 

570 

422 

910# 



935# 

936# 
7311 



915# 

874 

560* 

571* 

428 

911# 



880 886 

561 563* 

572 574* 

561 563 



924« 
925# 
572 



915# 



916# 



918# 



920# 



9611! 
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VA 

026 
927 
°2 p 
929 
030 
931 

933 
034 
935 
Q36 
9 37 
93^ 
Q30 
40 
041 
942 
043 
044 
945 
046 
947 
94R 
949 
050 
951 
952 
953 
Q54 
955 
056 
957 
Q5 * 
959 
OfiO 
961 
96? 



004010' 
004012" 
004014" 
004016" 
004020" 
004022' 



004024" 
004026" 
004030" 
004032" 
004034' 
004036' 
004040' 
004042' 
004044' 
004046 ' 
004047' 
004050" 
004051* 
004052' 



004054' 
004056' 

004060' 
004066' 
004067' 
004075' 
004102' 
004110' 
004116' 



000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 

ooo 

000 
000 
000000 



004060' 
177777 

042504 

040 
000006 

040 

044445 020124 

020123 

042520 
004124' 
000001 



044526 042503 



052510 043515 
020124 040527 
051104 050117 



XMTQPl: 
XMTQPO: 

rcvqpi: 
rcvqpg: 

ERRQPI : 
ERRQPO: 



HUNG: 

Ml: 



M2: 
M3: 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 



; TRANSMITTER QUEUE ENTRY (IN) POINTER 

; TRANSMITTER QUEUE RETRIEVAL POINTER (OUT) 

/RECEIVER QUEUE POINTERS 

} ERROR QUE POINTERS 



; T HES E ARE THE PROGRAM PARAMETERS 



SELECT : 

COUNT: 

TMRCNT: 

va: 
pa: 
ea: 

DVCNMBR ' 

bgndaTa : 

rcvtmr: 

DATA: 

DONFLG: 

RCVDATA: 

LCKOUT: 

NUMBAl: 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 


. BYTE 
. RYTE 
.BYTE 
• BYTE 
OPEN 
.EVEN 



;THTS IS THE ASCI I MESSAGE 



OPEN 
OPEN 
OPEN 
OPEN 



JACTIVE DEVICE SELECTION PARAMETER 
; COUNTER FOR THE NUMBER OF ITERATIONS 
/COUNTER FOR WATCHDOG TIMER 

LOCATION FOR VIRTUAL ADDRESS (USED BY GETPA) 
; ARGUMENT RETURNED BY GETP A( P HYS IC AL ADDRESS) 
^ARGUMENT RETURNED BY GETP At EXTENDED ADDRESS BITS) 
} NUMBER OF DEVICE BEING PROCESSED 

;TWO COPIES OF THE FIRST CHARACTER IN TRANSMIT PATTERN 

/RECEIVER BREAK LOOP TIMER 
; CH AR ACTER BUILDING BYTE 
; WATCHDOG FLAG FOR BUSY DEVICES 
> BUFFER FOR CHARACTER CHECKING 
; BUFFER ACCESS FLAG 



Ml 
-1 



. BLKB 
. ASCIZ 



• EVEN 
.FND 



HUNGSir H AS DROPPED%' 
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ACSR 
ACTVAT 
ADDR 
ADDR22= 
ASB 
A ST AT 
AWAS 
B AUDRT 
BEGIN 



BGNDAT 
BITO = 
BIT1 = 
8IT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BIT5 = 
BIT6 = 
8IT7 = 
BITS = 
BITO = 
BREAK5= 
BRl 
BR2 

BTODS = 

CDATAS= 

CKDATA 

CNTTBL 

CONFIG 

COUNT 

CSRA 

DATA 

DATCKS= 

DATER$= 

DERROR 

DONFLG 

DRnp 

DVCNMB 

DVTD1 

EA 

ENDm = 

END*; = 

ERRQPI 

ERRQPO 

ERRQUF 

ERRTYP 

EXITS = 

FINISH 

GFTPA5= 



00Q102R 
000504R 


346ft 


582* 


601* 


678* 


438ft 




440 




000006R 


312ft 


3Q3 


478 


001000 


364ft 








0001 06R 


350ft 


848* 






000104R 




675* 


814* 




000110R 


im 


849* 






002132R 


459 


772ft 






OOOOOOR 




372 


443 


502 




609 


613 


617 


644 




855 








004042R 


469* 


470* 


692 


940ft 


000001 


364ft 








000002 


3641 








002000 


364S 


578 






004000 


364ft 


449 






010000 


364ft 








020000 


364ft 


486 






040000 










100000 


im 


776 






000004 


364ft 








000010 


364ft 








000020 


364ft 








000040 


364# 










364ft 


618 






mm 


364 ft 








000400 


364ft 








001000 


364ft 


451 






104407 


364ft 


502 


503 


648 


000012R 


3131 


410 






000013R 


407 








364ft 








1 044 21 
lEl^R 


364ft 
667 


690ft 






002602R 


386 


890» 






000056R 


334ft 








Q04026R 








532* 


000100R 


IV4 


515* 


522* 
470 


004046R 


367* 


469 


473 


104411 


364ft 








104404 


364ft 


855 






002402R 


708 


R39# 






004047R 


439* 
371f 
6<»6* 


504 


512 


723* 


Q00240R 


390 






004040P 


721* 


R04 


841 


000014R 


316ft 


368 






004036R 


45-3 


938ft 






104413 


364ft 


547 






Jo40§8r 


364« 
426* 


372 


542 




742 


751* 


928ft 


004022R 


427* 


756 


765* 


929ft 


002702R 


426 


427 


748 


750 


000106R 




533* 


nr 


611* 


104400 


till 


599 


724 


001110R 


506 


540 


546ft 




104415 


364ft 


443 
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802* 

532 809 846 



503 
648 



528 
649 



535 
670 



537 
671 



542 
6«2 



547 
724 



590 
820 



594 
826 



599 
832 



649 



5«1* 
474* 



943ft 
939ft 



762 
680* 



670 



600* 677* 
942ft 



764 
818* 



911ft 
824* 



830* 
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. ARS* 000000 000 
004124 001 
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